home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / borg.arc / GAMES.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-12-29  |  2.0 KB  |  95 lines
  1. 10  DEFINT A-Z
  2. 20  FOR I=1 TO 10:KEY I,"":NEXT 'turn off fnkeys
  3. 30  KEY OFF:DIM SCN$(88):PIK$=SPACE$(80)
  4. 40  LINES=88
  5. 50  COLOR 7,0
  6. 60  CLS:OPEN "b:menu2.txt" AS 1 LEN=80
  7. 70  FIELD 1, 80 AS IL$
  8. 80  FOR LIN=1 TO LINES
  9. 90  GET #1,LIN:SCN$(LIN)=IL$
  10. 100  NEXT LIN
  11. 110  SCOLD=1:SCNUM=1
  12. 120  '*****display menu*****
  13. 130  CP=POS(0):CL=CSRLIN
  14. 140  FOR SCL=1 TO 23
  15. 150  LOCATE SCL,1,0:PRINT SCN$(SCNUM+SCL-1);
  16. 160  NEXT SCL
  17. 170  LOCATE 24,1:PRINT MID$(SCN$(SCNUM+23),1,79);
  18. 180  CLOSE #1
  19. 190  GOSUB 680
  20. 200  FOR I=1 TO 10:KEY(I) ON:NEXT I 'reactivate fnkeys
  21. 210  DEF SEG=0:POKE 1050, PEEK(1052)
  22. 220  ON KEY(1) GOSUB 350
  23. 230  ON KEY(2) GOSUB 360
  24. 240  ON KEY(3) GOSUB 370
  25. 250  ON KEY(4) GOSUB 380
  26. 260  ON KEY(5) GOSUB 620
  27. 270  ON KEY(6) GOSUB 630
  28. 280  ON KEY(7) GOSUB 640
  29. 290  ON KEY(8) GOSUB 650
  30. 300  ON KEY(9) GOSUB 660
  31. 310  ON KEY(10) GOSUB 670
  32. 315  ON ERROR GOTO 900
  33. 320  GOTO 210
  34. 330  END
  35. 340  '*****begin subroutines*****
  36. 350  CHAIN F$(1)
  37. 360  CLS:END
  38. 370  CLS:SYSTEM
  39. 380  FOR X=1 TO 10
  40. 390  FOR W=3 TO 10
  41. 400  LOCATE W,6:PRINT"                                                                     "
  42. 410  NEXT W
  43. 420  LOCATE 3,20:PRINT"FUNCTION KEY";X
  44. 430  LOCATE 5,10:PRINT"(1)no change        (2)change";
  45. 440  CMD$=INKEY$:IF CMD$="" THEN 440
  46. 450  IF CMD$=CHR$(49) THEN 520
  47. 460  IF CMD$=CHR$(50) THEN 480
  48. 470  GOTO 440
  49. 480  LOCATE 7,10:PRINT"input menu NAME";
  50. 490  INPUT L$(X)
  51. 500  LOCATE 8,10:PRINT"input menu file (include drive!)";
  52. 510  INPUT F$(X)
  53. 520  NEXT
  54. 530  OPEN "o",#1,"b:kgame.dat"
  55. 540  FOR X=1 TO 10:PRINT #1,L$(X):NEXT
  56. 550  FOR X=1 TO 10:PRINT #1,F$(X):NEXT
  57. 560  CLOSE #1
  58. 570  FOR W=3 TO 10
  59. 580  LOCATE W,6:PRINT"                                                                     "
  60. 590  NEXT W
  61. 600  LOCATE 6,20:PRINT"CHOOSE AN OPTION"
  62. 610  RETURN
  63. 620  CHAIN F$(5)
  64. 630  CHAIN F$(6)
  65. 640  CHAIN F$(7)
  66. 650  CHAIN F$(8)
  67. 660  CHAIN F$(9)
  68. 670  CHAIN F$(10)
  69. 680  OPEN"i",#1,"b:kgame.dat"
  70. 690  FOR X=1 TO 10
  71. 700  IF EOF(1) THEN CLOSE:GOTO 730
  72. 710  INPUT#1,L$(X)
  73. 720  NEXT
  74. 730  LOCATE 12,14:PRINT L$(1)
  75. 740  LOCATE 12,49:PRINT L$(2)
  76. 750  LOCATE 14,14:PRINT L$(3)
  77. 760  LOCATE 14,49:PRINT L$(4)
  78. 770  LOCATE 16,14:PRINT L$(5)
  79. 780  LOCATE 16,49:PRINT L$(6)
  80. 790  LOCATE 18,14:PRINT L$(7)
  81. 800  LOCATE 18,49:PRINT L$(8)
  82. 810  LOCATE 20,14:PRINT L$(9)
  83. 820  LOCATE 20,49:PRINT L$(10)
  84. 830  FOR X=1 TO 10
  85. 840  IF EOF(1) THEN CLOSE:GOTO 880
  86. 850  INPUT #1,F$(X)
  87. 860  NEXT X
  88. 870  CLOSE #1
  89. 880  RETURN
  90. 900  LOCATE 10,10:PRINT"THIS KEY NOT ACTIVE.PRESS ANY KEY TO CONTINUE"
  91. 905  DEF SEG=0:POKE 1050, PEEK(1052)
  92. 910  CMD$=INKEY$:IF CMD$="" THEN 910
  93. 915  LOCATE 10,10:PRINT"                                               "
  94. 920  RESUME 210
  95.